;(top-level nil)

(unless *bc-demo-data-loaded*
        (setf *bc-demo-data-loaded* t)

(data  "Cars"
:about "Data about 38 automobiles on 7 variables. Data are appropriate for regression analysis, for predicting MPG from remaining variables."
:title "Cars Data on Seven Variables"
:variables '("Country"	   "MPG"	"Weight"	"DriveRatio" 
             "Horsepower"	"Displacement"	"Cylinders")

:types '("Category" "Numeric" "Numeric" "Numeric" 
         "Numeric"  "Numeric" "Ordinal")

:labels '("Buick Estate Wagon"        "Ford Country Squire Wagon" 
          "Chevy Malibu Wagon"        "Chrysler LeBaron Wagon"	   
          "Chevette"	                 "Toyota Corona"	            
          "Datsun 510"               	"Dodge Omni"	                            
          "Audi 5000"	                "Volvo 240 GL"	             
          "Saab 99 GLE"	              "Peugeot 694 SL"	           
          "Buick Century Special"	    "Mercury Zephyr"	           
          "Dodge Aspen"	              "AMC Concord D/L"	          
          "Chevy Caprice Classic"	    "Ford LTD"	                 
          "Mercury Grand Marquis"	    "Dodge St Regis"	           
          "Ford Mustang 4"           	"Ford Mustang Ghia"	        
          "Mazda GLC"	                "Dodge Colt"	               
          "AMC Spirit"	               "VW Scirocco"	              
          "Honda Accord LX"	          "Buick Skylark"	            
          "Chevy Citation"	           "Olds Omega"	               
          "Pontiac Phoenix"	          "Plymouth Horizon"	         
          "Datsun 210"	               "Fiat Strada"	              
          "VW Dasher"	                "Datsun 810"	               
          "BMW 320i"	                 "VW Rabbit")
:data '(
"U.S."	   16.9	4.360	2.73	155	350	8
"U.S."	  	15.5	4.054	2.26	142	351	8
"U.S."	   19.2	3.605	2.56	125	267	8
"U.S."   	18.5	3.940	2.45	150	360	8
"U.S."	   30.0	2.155	3.70	 68	 98	4
"Japan"	  27.5	2.560	3.05	 95	134	4
"Japan"	  27.2	2.300	3.54	 97	119	4
"U.S."	   30.9	2.230	3.37	 75	105	4
"Germany"	20.3	2.830	3.90	103	131	5
"Sweden"	 17.0	3.140	3.50	125	163	6
"Sweden"	 21.6	2.795	3.77	115	121	4
"France"	 16.2	3.410	3.58	133	163	6
"U.S."	   20.6	3.380	2.73	105	231	6
"U.S."	   20.8	3.070	3.08	 85	200	6
"U.S."	   18.6	3.620	2.71	110	225	6
"U.S."	   18.1	3.410	2.73	120	258	6
"U.S."	   17.0	3.840	2.41	130	305	8
"U.S."	   17.6	3.725	2.26	129	302	8
"U.S."	   16.5	3.955	2.26	138	351	8
"U.S."	   18.2	3.830	2.45	135	318	8
"U.S."	   26.5	2.585	3.08	 88	140	4
"U.S."	   21.9	2.910	3.08	109	171	6
"Japan"	  34.1	1.975	3.73	 65	 86	4
"Japan"	  35.1	1.915	2.97	 80	 98	4
"U.S."	   27.4	2.670	3.08	 80	121	4
"Germany"	31.5	1.990	3.78	 71	 89	4
"Japan"	  29.5	2.135	3.05	 68	 98	4
"U.S."	   28.4	2.670	2.53	 90	151	4
"U.S."	   28.8	2.595	2.69	115	173	6
"U.S."	   26.8	2.700	2.84	115	173	6
"U.S."	   33.5	2.556	2.69	 90	151	4
"U.S."	   34.2	2.200	3.37	 70	105	4
"Japan"	  31.8	2.020	3.70	 65	 85	4
"Italy"	  37.3	2.130	3.10	 69	 91	4
"Germany"	30.5	2.190	3.70	 78	 97	4
"Japan"	  22.0	2.815	3.70	 97	146	6
"Germany"	21.5	2.600	3.64	110	121	4
"Germany"	31.9	1.925	3.78	 71	 89	4
))
)

(setcd cars)
(boxcox)

(help (format nil "1: In the scatterplot-matrix, find a row or column of scatterplots that need linearization.~%2: Click on the row or column's diagonal cell.~%3: Use the slider to linearize the scatterplots.~2%Repeat this process until all scaterplots are as linear as you can get them.~2%Then, choose the WINDOW menu's TRANSFORMATION PLOTMATRIX item to see a unique plotmatrix. This plotmatrix shows scatterplots of the data before you transformed them above the diagonal, and scatterplots of the data after you transformed them below, with the transformation on the diagonal."))

(send *help-window* :front-window)
